perm filename QNOTE[MUS,LCS] blob sn#107320 filedate 1974-06-17 generic text, type T, neo UTF8
03800	SRATE←25000;MAG←512/SRATE;SPEED←5;NCHNS←4;
04000	
04200	COMPILE; INSTRUMENT SIMP;
04400	OSCIL(P4,MAG*P3,P5);OUTA←OUTA+U1*P6;
04500	OUTB←OUTB+U1*P7;
04510	OUTC←OUTC+U1*P8;
04520	OUTD←OUTD+U1*P9;
04600	END; FINISH;
04800	<RCDFLG←-1;
05000	PLAY;SIMP 0 .2 A 2000 F1 1 0 0 0;
05050	P6←0;P7←1;SIMP .4;P7←0;P8←1;SIMP .8;P8←0;P9←1;SIMP 1.2;
05075	FINISH;PRINT(LSBUF);
05100	<PLAYS IN CH.1 - 2 - 3 - 4;